home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / PASCAL / 1463.ZIP / DRAW-2D.ARC / TYPE.PAS < prev    next >
Pascal/Delphi Source File  |  1986-11-20  |  482b  |  20 lines
  1.    TYPE
  2.      REGIS = RECORD
  3.        AX,BX,CX,DX,BP,SI,DI,DS,ES,FLAGS:INTEGER;
  4.       END;
  5.      STR4 = STRING[4];
  6.      STR8 = STRING[8];
  7.      STR12 = STRING[12];
  8.      FSTR = STRING[28];
  9.      FLDSTR  = STRING[30];
  10.      SCRLINE = STRING[80];
  11.      VECTOR = ARRAY[1..3] OF REAL;
  12.      MATRIX = ARRAY[1..3,1..3] OF REAL;
  13.      OBJECT = RECORD
  14.        OBJTYP:BYTE;
  15.        OBJSEL:BYTE;
  16.        COLOR:INTEGER;
  17.        X1,Y1:REAL;
  18.        X2,Y2:REAL;
  19.        X3,Y3:REAL;
  20.       END;